Сражение (вид сбоку) - версия 2.1(enchant:?passage,(bg:(hsl:0,0,0,0.45)))
{
(set: $TestMacro to (macro: [
(set: _a to "")
(if: $pika is 1)[(set: $counter to (either:'Бумага', 'Бумага', 'Камень','Ножницы'))]
(if: $pika is 2)[(set: $counter to (either: 'Ножницы', 'Бумага','Камень','Ножницы'))]
(if: $pika is 3)[(set: $counter to (either:'Камень', 'Бумага','Ножницы','Камень'))]
(if: ($count is "Камень")and($counter is "Камень"))
[(set: $battleresult to "Ничья")(set: $draw to $draw+1)]
(if: ($count is "Камень")and($counter is "Ножницы"))
[(set: $battleresult to "Победа")(set: $hp2 to $hp2-$damage)(set: $win to $win+1)]
(if: ($count is "Камень")and($counter is "Бумага"))
[(set: $battleresult to "Поражение")(set: $hp1 to $hp1-$enemydamage)(set: $lose to $lose+1)]
(if: ($count is "Ножницы")and($counter is "Ножницы"))
[(set: $battleresult to "Ничья")(set: $draw to $draw+1)]
(if: ($count is "Ножницы")and($counter is "Бумага"))
[(set: $battleresult to "Победа")(set: $hp2 to $hp2-$damage)(set: $win to $win+1)]
(if: ($count is "Ножницы")and($counter is "Камень"))
[(set: $battleresult to "Поражение")(set: $hp1 to $hp1-$enemydamage)(set: $lose to $lose+1)]
(if: ($count is "Бумага")and($counter is "Бумага"))
[(set: $battleresult to "Ничья")(set: $draw to $draw+1)]
(if: ($count is "Бумага")and($counter is "Камень"))
[(set: $battleresult to "Победа")(set: $hp2 to $hp2-$damage)(set: $win to $win+1)]
(if: ($count is "Бумага")and($counter is "Ножницы"))
[(set: $battleresult to "Поражение")(set: $hp1 to $hp1-$enemydamage)(set: $lose to $lose+1)]
(output-data: (_a))
]))
(if: $l1 is not 1)[(set: $hp1 to 100)(set: $l1 to 1)] <!--Первое присваивание жизни герою-->
(if: $l2 is not 1)[(set: $hp2 to 100)(set: $l2 to 1)] <!--Первое присваивание жизни врагу-->
hp(if: $hp1<=50)[(text-colour:red)[$hp1]](else:)[$hp1]
(if: $hp1 >0)
[<img src="https://tinyurl.com/nhdzkue6"width = "150" height = "150">] <!-- Живой герой. Картинка-->
(else:)
[<img src="https://tinyurl.com/37tspw7j"width = "150" height = "150">] <!--Дохлый герой. Картинка-->
-vs-
(if: ($hp2 >0)and($pika is 1))
[<img src="https://tinyurl.com/mwj3cfh7" width = "150" height = "150">] <!-- Живой враг. Картинка-->
(if: ($hp2 >0)and($pika is 2))
[<img src="https://tinyurl.com/5a2bvyww" width = "150" height = "150">] <!-- Живой враг. Картинка-->
(if: ($hp2 >0)and($pika is 3))
[<img src="https://tinyurl.com/4espunnp" width = "150" height = "150">] <!-- Живой враг. Картинка-->
(if: ($hp2 <=0))
[<img src="https://tinyurl.com/37tspw7j" width = "150" height = "150">] <!-- Дохлый враг. Картинка-->
}hp(if: $hp2<=50)[(text-colour:red)[$hp2]](else:)[$hp2]<!--Так всрато, чтобы не ело пробелы-->(if: $a1 is 0)[(set: $a1 to ' ')](if: $a2 is 0)[(set: $a2 to ' ')](if: $a3 is 0)[(set: $a3 to ' ')]
(if: ($hp1>0) and ($hp2>0))
[(if: $l3 is not 1)[Понеслось сражение(set: $l3 to 1)](else:)[Вы выбрали $count. Враг выбрал $counter. $battleresult(if: $battleresult is "Победа")[(text-colour:red)[+$damage]](if: $battleresult is "Поражение")[(text-colour:red)+(bg:(hsl:0,0,0,0.45))[-$enemydamage]]]
(link: "Камень")
[
(set: $count to "Камень")
($TestMacro:)
(go-to: "Battle")
]
(link: "Ножницы")
[
(set: $count to "Ножницы")
($TestMacro:)
(go-to: "Battle")
]
(link: "Бумага")
[
(set: $count to "Бумага")
($TestMacro:)
(go-to: "Battle")
]
](else:)
[Вы выбрали $count. Враг выбрал $counter <br> Бой завершён. Общая статистика - $win побед $lose поражений $draw ничьих. (if: $hp2<= 0)[[Удар увеличен на $enemydamage.](set: $damage to $damage+$enemydamage)]
(link: "Вернуться к выбору врага")
[
(set: $l1 to 0)(set: $l2 to 0)(set: $l3 to 0)(set: $win to 0)(set: $lose to 0)(set: $draw to 0)
(if: ($pika is 3)and($hp2<=0))[(go-to: "Win")]
(else:) (go-to: "Start")
]
]
<!--Комментарий-->Страшный огр мучает селян.
Но храбрый рыцарь приходит на помощь.
<img src="https://tinyurl.com/nhdzkue6"width = "200" height = "200">(if: $damage is 0)[(set: $damage to 5)]
Ваш удар наносит $damage повреждений
(link: "Сразиться с быстрой крысой")
[
(set: $enemydamage to 5)
(set: $pika to 1)
(go-to: "Battle")
]
(link: "Наказать зловредного кота")
[(set: $enemydamage to 25)
(set: $pika to 2)
(go-to: "Battle")
]
(link: "Предстать перед огром")
[
(set: $enemydamage to 50)
(set: $pika to 3)
(go-to: "Battle")
]Вы убили страшного огра и освободили земли.
<img src="https://lunlise.neocities.org/rick-roll-rick-ashley.gif"width = "200" height = "200">
[[Сыграть ещё раз|Start]]